home *** CD-ROM | disk | FTP | other *** search
/ Collection of Tools & Utilities / Collection of Tools and Utilities.iso / comm / ca29_3.zip / DOORWAY.CMD < prev    next >
OS/2 REXX Batch file  |  1991-07-16  |  2KB  |  49 lines
  1. ;----- Doorway invocation: Modify this to suit your installation ----
  2. ;
  3. S29 = "c:\doorway\doorway com4 /S:* /G:ON /V:B^U /M:1000 /C:DOS /V:D /B:Z"
  4. ;
  5. ; ----- COM-AND Drop-to-DOS -----------------------------------------
  6. ;
  7. ;    This script performs the following:
  8. ;
  9. ;    i)    A batch file is built (named DROPDOS.BAT)
  10. ;    ii)    Invocation of DROPDOS is stacked, with typethru disabled
  11. ;    III)    COM-AND is terminated without hanging up
  12. ;
  13. ;    The batch file:
  14. ;
  15. ;    i)    Invokes a doorway function, as specified in above
  16. ;    ii)    When the doorway exits, COM-AND is restarted, without hangup
  17. ;
  18. ;    This function allows DOS (or a program) to be made fully available
  19. ;    (in text mode display) to a remote caller.
  20. ;
  21. ;    Pgm: R.McGinnis; Chicago 1991
  22. ; --------------------------------------------------------------------
  23. ;
  24. ;    Build a batch file
  25. ;
  26.     FOPENO "DROPDOS.BAT" TEXT
  27.     IF NOT SUCCESS
  28.        MESS "File error - cannot open batch file^M^J"
  29.        EXIT
  30.        ENDIF
  31.  
  32.     WRITE "ECHO OFF!"       ; Start the batch file
  33.     S0 = S29        ; Setup up drop to DOS command
  34.     PRESERVE S0        ; Make it printable
  35.     WRITE S0        ; Write the Drop to DOS command
  36.     WRITE "!"               ; And a terminating cr
  37.  
  38.     WRITE "CD "*"_SUBD"*"!" ; Change a changed directory
  39.     WRITE "COM-AND /q/p!"   ; Inhibit COM-AND.CMD; take modem as set
  40.     WRITE "^Z"
  41.     FCLOSEO         ; And we're done with it
  42.  
  43.     CLOG "* Drop-to-DOS"
  44.  
  45.     SET TTHRU OFF        ; Disable type through
  46.     STACK CLEAR        ; Place invocation of the batch file
  47.     STACK "DROPDOS.BAT!"    ; .. into BIOS's area
  48.     BYE            ; Do it.
  49.